home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CLONE.ZIP / CLONE.TXT
Text File  |  1997-01-06  |  2KB  |  60 lines
  1. ;goes in aliases
  2.  
  3. /clone {
  4.   %t = 0
  5.   :start
  6.   inc %t 1
  7.   if $nick(%t,#) == $null goto end
  8.   if $address($nick(%t,#),3) == $null { whois $nick(%t,#) | /set %whois 1 }
  9.   goto start
  10.   :end
  11.   if %whois == $null clone_  | /else timer 1 5 /clone
  12.   unset %t | /unset %whois
  13. }
  14. /clone_ {
  15.   set %u 0 | /set %x 0 | /unset %addlist
  16.   :a
  17.   inc %u 1 | /set %v 0
  18.   if $nick(%u,#) == $null goto out
  19.   :b
  20.   inc %v 1
  21.   if $nick(%v,#) == $null goto a
  22.   if $nick(%u,#) == $nick(%v,#) goto b
  23.   if $address($nick(%u,#),3) == $address($nick(%v,#),3) {
  24.     if $address($nick(%v,#),3) !isin %addlist { set %addlist %addlist $address($nick(%v,#),3) | /inc %x 1 }
  25.   }
  26.   goto b
  27.   :out
  28.   msg # $str(1, áááááá)
  29.   if %x == 1 msg # ü $+ There is %x CLONE on # $+ ü | /else msg # ü $+ There are %x CLONES on # $+ ü
  30.   if %addlist == $null goto end
  31.   set %u 0
  32.   :c
  33.   inc %u 1 | /set %v 0 | /set %w 1 | /unset %clone | /set %add $token(%u,32,%addlist)
  34.   if %add == $null goto end
  35.   :d
  36.   inc %v 1
  37.   if $nick(%v,#) == $null goto c
  38.   if %add == $address($nick(%v,#),3) {
  39.     if %clone == $null set %clone $nick(%v,#) | /else set %clone %clone & $nick(%v,#)
  40.   }
  41.   inc %w 1
  42.   if (($nick(%w,#) == $null) && (%clone != $null)) { 
  43.     msg # ü $+ %clone $+ ü  ü $+ %add $+ ü
  44.   }
  45.   goto d
  46.   :end
  47.   msg # ▀δTΓKε|| | /msg # $str(1, áááááá) | /unset %u | /unset %v | /unset %w | /unset %x | /unset %addlist | /unset %add | /unset %clone
  48. }
  49.  
  50. ;"internal address list" must be checked on the "remote", "events" box.
  51.  
  52. ;to start, type /clone
  53. ;or add this in popups, main window
  54.  
  55. Clone:/clone
  56.  
  57.  
  58. DagoWare 96
  59. dago@hotmail.com
  60.